/*
 * lists.m - My utility list stuff
 */

define t_util proc utility public ListMap(action a; list thing l)void:
  thing th;
  int count,i;

  count:=Count(l);
  for i from 0 upto count-1 do
    th:=l[i];
    call(a, void)(th);
  od;
corp;


define t_util proc utility public ListAll(action a; list thing l)bool:
  thing th;
  bool st;
  int count,i;

  st:=true;
  count:=Count(l);
  for i from 0 upto count-1 do
    th:=l[i];
    st:=st and call(a, bool)(th);
  od;
  st
corp;



